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Problem 

Not enough lines to enter West Virginia tax tables. 

* * THE FOLLOWING CHANGES ARE REQUIRED FOR WEST VIRGINIA ONLY! * * 


Solution 


1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing LOAD"STATETAX". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 

Old Line: 20 CLEAR5000:DIMMS$(4),L0$(4),HI$(4),PC$(4),Ll$(4,15),L2$(4,15), 
L3$(4,15),FD$(4) 

New Line: 20 CLEAR5000:DIMMS$(4),LO$(4),HI$(4),PC$(4),Ll$(4,30),L2$(4,30), 
L3$(4,30),FD$(4) 

Old Line: 1110 GOSUB9000:PRINT@6*64,"HOW MANY LINES ARE IN EACH TAX TABLE?": 
PRINT"ONE TO 15 LINES ARE ALLOWED." 

New Line: 1110 GOSUB9000:PRINT@6*64,"HOW MANY LINES ARE IN EACH TAX TABLE?": 
PRINT"ONE TO 30 LINES ARE ALLOWED." 

Old Line: 1120 PRINT@9*64+14,"ENTER NUMBER OF LINES ";:FL=-2:GOSUB10000:NL= 
VAL(IN$):IFNL<10RNL>15THEN1120 
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New Line: 1120 PRINT@9*64+14,"ENTER NUMBER OF LINES :FL=-2:GOSUB10000:NL= 
VAL(IN$):IFNL<1ORNL>30THEN1120 

Old Line: 3060 PRINT#1 ,"THEN";USING"##M";5100 + 10*(I-1 )*(NL+3) ; 

New Line: 3060 PRINT#1, "THEN" ;USING"#M#" ; 5100+5*(l-l )*(NL+3) ; 

Old Line: 3100 F0RI = 1T0NT: LN=5090+10*( I-l )*(NL+3) : PRINT#1 ,USING"###/A" ;LN + 10; 
: PRINTlAl, "J=";SD$;"/ 100*G#: IFJ<";L0$( I) ; "THENJ="; L0$( I) ; 

New Line: 3100 F0RI = 1T0NT:LN=5090+5*(I-1 )*(NL+3) :PRINT#1 ,USING"##M" ;LN + 10 ; 

:PRINT#1,"J=";SD$;"/100*G#:IFJ<";L0$(I);"THENJ=";L0$(I); 

Old Line: 3200 FORL=lTONL:PRINT#1.USING"####";LN+20+L*10;:IFTB$="P"THEN3300 

New Line: 3200 F0RL=1T0NL:PRINT#1.USING"####";LN+20+L*2;:IFTB$="P"THEN3300 

Old Line: 3400 NEXTL:PRINT#1.USING"####";LN+NL*10+30;:PRINT#1. 
"GOTO5900":NEXTI 

New Line: 3400 NEXTL:PRINT#1.USING"####";LN+NL*2+30;:PRINT#1. 
"GOTO5900":NEXTI 

4. Type SAVE"STATETAX" to save the changes in the program. 

5. At TRSDOS READY, make a backup copy of the corrected diskette. 


NOTE: After entering new table, it must be merged into the program using the 

instructions in the manual. 








